home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / CBTPGM.SDA / CBTPIX.PGM (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  361 b   |  9 lines
  1. 10 PRINT"[147]ENTER CBTERM PICTURE LETTER? (A-P)";
  2. 20 GETA$:IFA$=""GOTO20
  3. 30 IFA$<"A"ORA$>"P"GOTO10
  4. 40 B$=CHR$(129)+"PIC "+A$+" CBTERM  "
  5. 50 OPEN8,8,8,B$
  6. 60 IFST<>0THENCLOSE8:GOTO10
  7. 70 SYS9*256
  8. 80 GOTO 80
  9.